TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/B-Business/(c)b3.d64/soft account.c

Commodore BASIC | 2008-11-26 | 4KB | 117 lines

0 POKE53281,0:POKE53280,0:GOTO600
10 FORT=1TO2000:NEXT
20 PRINT"[147]             SOFT [154]ACCOUNT            "
30 PRINT"[156][176][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][174]"
40 PRINT"[145][194]  OLD   [194]        [194]           [194]  NEW   [194]"
50 PRINT"[145][194]BALANCE [194]DEPOSITS[194]WITHDRAWALS[194]BALANCE [194]"
60 PRINT"[145][194]--------[194]--------[194]-----------[194]--------[194]"
70 PRINT"[145][194]        [194]        [194]           [194]        [194]"
80 PRINT"[145][173][195][195][195][195][195][195][195][195][179]        [194]           [171][195][195][195][195][195][195][195][195][189]"
90 PRINT"[145]         [194]        [194]           [194]"
100 PRINT"         [194]        [194]           [194]"
110 PRINT"         [194]        [194]           [194]"
120 PRINT"         [173][195][195][195][195][195][195][195][195][177][195][195][195][195][195][195][195][195][195][195][195][189]"
200 INPUT"[154]LAST BALANCE :";A
210 PRINT"$";A
220 INPUT"DEPOSIT AMOUNT #1 :";B
225 PRINT"$";B
230 INPUT"DEPOSIT AMOUNT #2 :";C
235 PRINT"$";C
240 INPUT"DEPOSIT AMOUNT #3 :";D
245 PRINT"$";D
250 INPUT"DEPOSIT AMOUNT #4 :";E
255 PRINT"$";E
260 INPUT"DEPOSIT AMOUNT #5 :";F
265 PRINT"$";F
300 INPUT"WITHDRAWAL AMOUNT #1 :    [157][157][157][157]";G
305 PRINT"$";G
310 INPUT"WITHDRAWAL AMOUNT #2 :";H
315 PRINT"$";H
320 INPUT"WITHDRAWAL AMOUNT #3 :";I
325 PRINT"$";I
330 INPUT"WITHDRAWAL AMOUNT #4 :";J
335 PRINT"$";J
340 INPUT"WITHDRAWAL AMOUNT #5 :";K
345 PRINT"$";K
350 FORQ=1504TO2023:POKEQ,32:NEXT
355 A=A+B+C+D+E+F:B=G+H+I+J+K
360 T=A-B
370 PRINT"[154]NEW BALANCE : $";T
380 PRINT"$";T
390 FORQ=1TO3000:NEXT
400 FORQ=1504TO2023:POKEQ,32:NEXT
410 INPUT"DO YOU WANT YOUR INTEREST FIGURED (Y/N) ";L$
420 IFL$="Y"THEN450
422 IFL$="N"THEN5000
425 IFL$<>"Y"ORL$<>"N"THEN410
450 INPUT"WHAT IS YOUR INTEREST RATE (IN DECIMAL):";M
460 INPUT"HOW OFTEN DO YOU RECIEVE YOUR INTEREST : ";N$
462 IFN$="YEARLY"THENN=1:GOTO470
464 IFN$="QUARTERLY"THENN=4:GOTO470
466 IFN$="BI YEARLY"THENN=2:GOTO470
468 IFN$="MONTHLY"THENN=12:GOTO470
469 IFN$<>"QUARTERLY"ORN$<>"YEARLY"ORN$<>"BI YEARLY"ORN$="MONTHLY"THEN460
470 FORQ=1504TO2023:POKEQ,32:NEXT
475 I=T*M/N
480 PRINT"YOUR NEXT INTEREST AMOUNT WILL BE :     $";I
490 FORQ=1TO3000:NEXT
500 PRINT"I WILL NOW ADD THIS WITH YOUR TOTAL    ";T;"+";I;"= $";T+I
505 FORQ=1TO3000:NEXT
510 PRINT"THIS IS YOUR BALANCE AFTER INTEREST.":FORT=1TO5000:NEXT:END
600 PRINT"[147]"
601 PRINT"[176][195][195][195][174] [176][195][195][195][174] [176][195][195][195][174] [176][195][178][195][174] "
602 PRINT"[194]     [194]   [194] [194]       [194]   "
603 PRINT"[173][195][195][195][174] [194]   [194] [171][195][195][195]    [194]   "
604 PRINT"    [194] [194]   [194] [194]       [194]   "
605 PRINT"[173][195][195][195][189] [173][195][195][195][189] [173]       [173]   "
607 PRINT"[154]"
608 PRINT"[176][195][195][195][174] [176][195][195][195][174] [176][195][195][195][174] [176][195][195][195][174] [174]  [174] [174]   [174] [176][195][178][195][174]"
609 PRINT"[145][194]   [194] [194]     [194]     [194]   [194] [194]  [194] [194][205]  [194]   [194]"
610 PRINT"[171][195][195][195][179] [194]     [194]     [194]   [194] [194]  [194] [194] [205] [194]   [194]"
611 PRINT"[194]   [194] [194]     [194]     [194]   [194] [194]  [194] [194]  [205][194]   [194]"
612 PRINT"[173]   [173] [173][195][195][195][189] [173][195][195][195][189] [173][195][195][195][189] [173][195][195][189] [173]   [173]   [173]"
613 PRINT"                  BY"
614 PRINT"          NICHOLAS  ASHWORTH            [156]"
615 A$="HIT ANY KEY"
620 B$="HIT ANY KEY"
625 PRINTA$:FORT=1TO500:NEXT
630 PRINTB$:FORT=1TO500:NEXT
640 GETC$:IFC$=""THEN625
641 FORQ=1024TO2023:POKEQ,32:NEXT
642 PRINT"HIT 'S' TO SKIP INSTRUCTIONS."
643 PRINT"HIT 'F1' FOR INSTRUCTIONS."
650 GETA$:IFA$=""THEN650
656 IFA$="S"THEN850
657 IFA$="[133]"THEN660
658 IFA$<>"S"ORA$<>"[133]"THEN650
660 READA$:IFA$="99"THEN800
665 FORX=1TOLEN(A$):B$=MID$(A$,X,1):PRINTB$;:POKES,252:FORT=1TO10:NEXT:POKES,0
670 FORQ=1TO50:NEXT:NEXT:PRINT:GOTO660
700 DATA"[147]             SOFT[154] ACCOUNT[157][157][157][157][157][157][157][157][157][157][157][157][156][195][195][195][195] [195][195][195][195][195][195][195]"
701 DATA"             INSTRUCTIONS"
703 DATA"     SOFT ACCOUNT IS A SAVINGS ACCOUNT"
704 DATA"CHECK.  THIS PROGRAM CALCULATES YOUR"
705 DATA"BALANCE AFTER YOU HAVE MADE DEPOSITS"
706 DATA"AND WITHDRAWALS.  1ST YOU ENTER YOUR "
707 DATA"LAST BALANCE.  2ND YOU ENTER ALL "
708 DATA"DEPOSITS (UP TO 5).  3RD YOU ENTER ALL"
709 DATA"WITHDRAWALS(UP TO 5).  IT THEN GIVES YOU"
710 DATA"[145]YOUR NEW BALANCE.  AFTER THIS YOU CAN"
711 DATA"DECIDE WHETHER YOU WANT IT TO FIGURE"
712 DATA"YOUR INTEREST.  YOU WILL HAVE TO ENTER"
713 DATA"THE INTEREST RATE (AS A DECIMAL: EG."
714 DATA"INSTEAD OF ENTERING 5.25% YOU WOULD TYPE"
715 DATA"[145].0525)AND WHEN YOU RECIEVE YOUR INTEREST"
716 DATA"[145](EG. YEARLY : BI YEARLY : QUARTERLY :
717 [131]"MONTHLY....IF YOU DON'T USE ONE OF THESE"
718 [131]"ONEXACT WORDS THE COMPUTER WILL NOT "
719 [131]"UNDERSTAND YOU !)"
720 [131]"AND THAT'S ALL THERE IS TO IT!",99
800 A$[178]"HIT ANY KEY"
810 B$[178]"HIT ANY KEY"
820 [153]A$:[129]T[178]1[164]500:[130]
830 [153]B$:[129]T[178]1[164]500:[130]
840 [161]C$:[139]C$[178]""[167]820
850 [137]10
5000 [129]T[178]1[164]5000:[130]:[128]